unit clienteDadosU;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, modeloDadosU, Data.DB, Vcl.StdCtrls,
  Vcl.Buttons, Vcl.ExtCtrls, Vcl.Mask, Vcl.DBCtrls;

type
  TfrmClienteDados = class(TfrmModelosDados)
    Label1: TLabel;
    dbeID: TDBEdit;
    Label2: TLabel;
    dbeNome: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    dbeEmail: TDBEdit;
    Label5: TLabel;
    sbeSenha: TDBEdit;
    Label6: TLabel;
    dbeCurso: TDBEdit;
    Label7: TLabel;
    dbeEscola: TDBEdit;
    Label8: TLabel;
    Label11: TLabel;
    dbeCadastro: TDBEdit;
    Label12: TLabel;
    dbeInativo: TDBEdit;
    dbcAtivo: TDBComboBox;
    dbcSexo: TDBComboBox;
    Label9: TLabel;
    dbeedicao: TDBEdit;
    data_de_edicao: TTimer;
    procedure btnSalvarClick(Sender: TObject);
    procedure data_de_edicaoTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClienteDados: TfrmClienteDados;

implementation

{$R *.dfm}
 uses dmU;
procedure TfrmClienteDados.btnSalvarClick(Sender: TObject);
begin
 if dmCantina.ztbClientec_ativo.value = 'N' then begin
dmCantina.ztbClientec_data_inativo.value := now;

end;
dmCantina.ztbCliente.post;

end;

procedure TfrmClienteDados.data_de_edicaoTimer(Sender: TObject);
begin
  inherited;
dbeedicao.Text :=DateTimeToStr(Now);
end;

end.
